home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-websites-
/
wirenet
/
files
/
thor25_arexx.lha
/
FSE
/
RemoveUU.fse
< prev
next >
Wrap
Text File
|
1995-08-11
|
467b
|
30 lines
/* $VER: RemoveUU.fse 1.0 (4.8.95)
* Remove quoted (with '>') uuencode text from the fse
* Author: Magne Østlyngen
*/
options results
MSGLENGTH
lines=result
i=1
do forever
SETPOS 1 i
GETLINE i
ln=result
if left(ln,7)='>begin ' then do
i=i+1
SETPOS 1 i
do until left(ln,4)='>end'
GETLINE i
ln=result
DELETELINES
lines=lines-1
if i>lines then leave
end
end
i=i+1
if i>lines then leave
end
SETPOS 1 1
exit